Public Class Sessao

    Private strStatus As String
    Private strId As String
    Private strNumRodadas As String

    Public Sub New(ByVal strStatus As String, ByVal strId As String, ByVal strNumRodadas As String)
        Me.strStatus = strStatus
        Me.strId = strId
        Me.strNumRodadas = strNumRodadas
    End Sub

    Public Sub setStatus(ByVal Status As String)
        strStatus = Status
    End Sub

    Public Function getStatus() As String
        getStatus = strStatus
    End Function

    Public Sub setId(ByVal Id As String)
        strId = Id
    End Sub

    Public Function getId() As String
        getId = strId
    End Function

    Public Sub setNumeroRodada(ByVal NumRodadas As String)
        strNumRodadas = NumRodadas
    End Sub

    Public Function getNumeroRodada() As String
        getNumeroRodada = strNumRodadas
    End Function

End Class
